home *** CD-ROM | disk | FTP | other *** search
- .key HOSTNAME/A,HOSTADDRESS/A,IPADDRESS/A,USERNAME/A,IPTYPE/A
- .bra {
- .ket }
- .def HOSTNAME badhost
- .def HOSTADDRESS 0.0.0.0
- .def IPADDRESS 0.0.0.0
- .def USERNAME noname
- .def IPTYPE cslip0
-
- ; log in
-
- echo
- echo login: {USERNAME} : {IPADDRESS} at {HOSTNAME} : {HOSTADDRESS} using {IPTYPE}
- echo
-
- ; AmiTCP:bin/login -f {USERNAME}
- AmiTCP:bin/umask 022
-
- AmiTCP:AmiTCP
-
- WaitForPort AMITCP
-
- ; Configure loop-back device
- AmiTCP:bin/ifconfig lo0 localhost
-
- ; Assure that ENV:Sana2 exists
- if not exists ENV:Sana2
- makedir ENV:Sana2
- endif
-
- ; Create cslip0 configuration file
- ;echo >env:sana2/cslip0.config serial.device 0 19200 {IPADDRESS} MTU=576 7WIRE
- echo >env:sana2/slip0.config serial.device 0 19200 {IPADDRESS} MTU=576 7WIRE
- echo >env:sana2/ppp0.config serial.device 0 19200 {IPADDRESS} MTU=576 7WIRE
- echo >env:sana2/{IPTYPE}.config serial.device 0 19200 {IPADDRESS} MTU=576 7WIRE
-
- ; Configure cslip0
- AmiTCP:bin/ifconfig {IPTYPE} {IPADDRESS} {HOSTADDRESS}
-
- ; Add route to this host
- AmiTCP:bin/route add {IPADDRESS} localhost
- AmiTCP:bin/route add {HOSTADDRESS} {HOSTNAME}
-
- ; Add route to the default gateway
- AmiTCP:bin/route add default {HOSTADDRESS}
- echo Routing Completed
-
- setenv HOSTNAME `AmiTCP:bin/hostname`
- echo Hostname Assigned
-
- Assign TCP: Exists >NIL:
- echo TCP Assigned
-
- IF Warn
- echo mounting TCP:
- Mount TCP: from AmiTCP:devs/Inet-Mountlist
- EndIf
-
- echo Start the internet `super server'
- run AmiTCP:bin/inetd >NIL:
-
- endcli
-